home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / examples.zoo / misc / contortd.lsp < prev    next >
Lisp/Scheme  |  1991-10-22  |  466b  |  20 lines
  1. ; Beispiel aus CLTL S. 120:
  2. (defun test1 (items)
  3.   (block loser
  4.     (catch 'stuff
  5.       (mapcar #'(lambda (x)
  6.                   (if (numberp x) (hairyfun x) (return-from loser nil))
  7.                 )
  8.               items
  9. ) ) ) )
  10.  
  11. ; Contorted Example aus CLTL S. 40:
  12. (defun test2 (f g x)
  13.   (if (= x 0)
  14.     (funcall f)
  15.     (block here
  16.       (+ 5 (test2 g #'(lambda () (return-from here 4)) (- x 1) ))
  17. ) ) )
  18. (eval-when (load eval) (test2 nil nil 2))
  19.  
  20.